﻿Imports System.Data.OleDb

Public Class Institucion
    Private Conexion As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=FacultadMatematicaAplicada;Data Source=LAVIEJA")

    Public Sub RegistrarInstitucion(ByVal paramNombre As String, ByVal paramPais As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertInstitucion" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramNombre", paramNombre)) 'Agregamos a la colección de parámetros los parametros que necesita el procedimiento almacenad
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramPais", paramPais))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        Conexion.Close() 'Cerramos la conexion
    End Sub
End Class
